home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 September
/
CHIP Eylül 1998.iso
/
demolar
/
lokman
/
DISK1
/
_SETUP.2
/
Group1
/
Tarihdll.dll
/
0
/
RCDATA
/
TBKFATRSIZFORM
/
TBKFATRSIZFORM.txt
Wrap
Text File
|
1998-07-24
|
19KB
|
643 lines
object BkFatRsizForm: TBkFatRsizForm
Left = 17
Top = 11
BorderStyle = bsDialog
Caption = 'Eski Sat�� Faturalar� ve Fatura Se�imi'
ClientHeight = 409
ClientWidth = 600
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
KeyPreview = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 0
Width = 600
Height = 409
HelpContext = 112
Align = alClient
BevelInner = bvLowered
BevelWidth = 2
BorderWidth = 1
Color = clBlack
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
object DBGridFatBak: TDBGrid
Left = 5
Top = 30
Width = 590
Height = 188
Align = alTop
Color = clNavy
DataSource = QBRFATSRC
FixedColor = clSilver
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial Tur'
Font.Style = [fsBold]
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 1
TitleFont.Color = clBlue
TitleFont.Height = -11
TitleFont.Name = 'Arial Tur'
TitleFont.Style = [fsBold]
OnDblClick = BitBtnFSECClick
end
object DBGrid2: TDBGrid
Left = 5
Top = 243
Width = 590
Height = 115
Align = alTop
Color = clGray
DataSource = SatBrSRC
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial Tur'
Font.Style = [fsBold]
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 3
TitleFont.Color = clNavy
TitleFont.Height = -11
TitleFont.Name = 'Arial Tur'
TitleFont.Style = [fsBold]
end
object BitBtnFSEC: TBitBtn
Left = 339
Top = 372
Width = 113
Height = 27
Caption = '&Fatura Se�'
Default = True
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial Tur'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False
TabOrder = 6
OnClick = BitBtnFSECClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
00337777FFFF77FF7733EEEE00000000033377777777777773330000}
NumGlyphs = 2
end
object BitBtnIPT: TBitBtn
Left = 467
Top = 371
Width = 113
Height = 27
Cancel = True
Caption = '&Vazge�'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial Tur'
Font.Style = [fsBold]
ModalResult = 2
ParentFont = False
TabOrder = 7
OnClick = BitBtnIPTClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FFF33FF333FFF339993370733
999333777FF37FF377733339993000399933333777F777F77733333399970799
93333333777F7377733333333999399933333333377737773333333333990993
3333333333737F73333333333331013333333333333777FF3333333333910193
333333333337773FF3333333399000993333333337377737FF33333399900099
93333333773777377FF333399930003999333337773777F777FF339993370733
9993337773337333777333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object Panel2: TPanel
Left = 5
Top = 5
Width = 590
Height = 25
Align = alTop
BevelInner = bvLowered
BevelWidth = 2
Caption = 'FATURALAR'
Color = clRed
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object LabelSIRA: TLabel
Left = 352
Top = 5
Width = 186
Height = 14
Caption = '(Fatura Tarihine G�re S�ral� Liste)'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
end
object Panel3: TPanel
Left = 5
Top = 218
Width = 590
Height = 25
Align = alTop
BevelInner = bvLowered
BevelWidth = 2
Caption = 'FATURA ��ER�KLER�'
Color = clPurple
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object BtnSIRDEG: TBitBtn
Left = 197
Top = 372
Width = 123
Height = 27
HelpContext = 113
Caption = 'S�rala&ma De�i�'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial Tur'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = BtnSIRDEGClick
Glyph.Data = {
E6000000424DE60000000000000076000000280000000E0000000E0000000100
0400000000007000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
330033333333333333003300000000033300330FFFFFFF033300330F00000F03
3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03
3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333
33003333333333333300}
end
object BitBtnSIL: TBitBtn
Left = 10
Top = 370
Width = 106
Height = 27
Caption = 'Fatura &Sil'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial Tur'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = BitBtnSILClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
B0557777FF577777F7F500000E055550805577777F7555575755500000555555
05555777775555557F55550005555555055555777555555575550000}
NumGlyphs = 2
Spacing = 7
end
end
object GroupBoxSIR: TGroupBox
Left = 194
Top = 218
Width = 193
Height = 150
Caption = 'SIRALAMA DE���T�R'
Color = clRed
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
TabOrder = 1
Visible = False
object RadioGrpSIRA: TRadioGroup
Left = 12
Top = 16
Width = 153
Height = 93
Caption = 'S�ralama Kriteri'
Color = clSilver
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ItemIndex = 0
Items.Strings = (
'Koda G�re'
'Ada G�re'
'FaturaTarihine G�re'
'Fatura No'#39'ya G�re'
'Net Toplama G�re')
ParentColor = False
ParentFont = False
TabOrder = 0
end
object BtnTAMSIR: TBitBtn
Left = 6
Top = 116
Width = 83
Height = 25
Caption = '&Tamam'
Default = True
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BtnTAMSIRClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333377F3333333333000033334224333333333333
337337F3333333330000333422224333333333333733337F3333333300003342
222224333333333373333337F3333333000034222A22224333333337F337F333
7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
33333337F73337F337F33333000033A33333A222433333337333337F337F3333
0000333333333A222433333333333337F337F33300003333333333A222433333
333333337F337F33000033333333333A222433333333333337F337F300003333
33333333A222433333333333337F337F00003333333333333A22433333333333
3337F37F000033333333333333A223333333333333337F730000333333333333
333A333333333333333337330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BtnVAZSIR: TBitBtn
Left = 107
Top = 116
Width = 78
Height = 25
Cancel = True
Caption = '&Vazge�'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = BtnVAZSIRClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033337733333333333333333F333333333333
0000333911733333973333333377F333333F3333000033391117333911733333
37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333
911117111117333337F3337F733337F3000033333911111111733333337F3337
3333F7330000333333911111173333333337F333333F73330000333333311111
7333333333337F3333373333000033333339111173333333333337F333733333
00003333339111117333333333333733337F3333000033333911171117333333
33337333337F333300003333911173911173333333373337F337F33300003333
9117333911173333337F33737F337F33000033333913333391113333337FF733
37F337F300003333333333333919333333377333337FFF730000333333333333
3333333333333333333777330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object QueryBRFAT: TQuery
DatabaseName = 'ECZ'
SQL.Strings = (
'SELECT *FROM'
'FATURA'
'WHERE RCTOPSAYISI IS NULL'
'ORDER BY FATARIH')
Left = 248
Top = 96
object QueryBRFATFATURANO: TStringField
DisplayLabel = 'FATURA NO'
DisplayWidth = 15
FieldName = 'FATURANO'
Size = 15
end
object QueryBRFATSATISNO: TFloatField
FieldName = 'SATISNO'
Visible = False
end
object QueryBRFATKRMKOD: TStringField
DisplayLabel = 'Kodu'
DisplayWidth = 11
FieldName = 'KRMKOD'
Size = 11
end
object QueryBRFATKRMAD: TStringField
DisplayLabel = 'Ad�'
DisplayWidth = 24
FieldName = 'KRMAD'
Size = 36
end
object QueryBRFATFATARIH: TDateField
DisplayLabel = 'Fat.Trh'
DisplayWidth = 8
FieldName = 'FATARIH'
DisplayFormat = 'dd/mm/yy'
end
object QueryBRFATRCTOPSAYISI: TIntegerField
DisplayLabel = 'Top.Re�.'
DisplayWidth = 8
FieldName = 'RCTOPSAYISI'
Visible = False
end
object QueryBRFATBRUT: TCurrencyField
DisplayLabel = 'Br�t '
DisplayWidth = 15
FieldName = 'BRUT'
end
object QueryBRFATNET: TCurrencyField
DisplayLabel = 'NET TOPLAM'
DisplayWidth = 15
FieldName = 'NET'
end
end
object QBRFATSRC: TDataSource
DataSet = QueryBRFAT
Left = 280
Top = 96
end
object SatBrTab: TTable
BeforeDelete = SatBrTabBeforeDelete
OnCalcFields = SatBrTabCalcFields
DatabaseName = 'ECZ'
IndexFieldNames = 'SATISNO'
MasterFields = 'SATISNO'
MasterSource = QBRFATSRC
TableName = 'SATIS.DB'
Left = 544
Top = 216
object SatBrTabSATISNO: TFloatField
FieldName = 'SATISNO'
Visible = False
end
object SatBrTabSIRANOURUN: TIntegerField
DisplayLabel = 'S�ra No'
DisplayWidth = 6
FieldName = 'SIRANOURUN'
end
object SatBrTabILACNO: TIntegerField
Alignment = taLeftJustify
DisplayLabel = '�r�n Ad�'
DisplayWidth = 36
FieldName = 'ILACNO'
OnGetText = SatBrTabILACNOGetText
end
object SatBrTabFIYAT: TCurrencyField
DisplayLabel = 'Fiyat�'
DisplayWidth = 13
FieldName = 'FIYAT'
end
object SatBrTabMIKTAR: TIntegerField
DisplayLabel = 'Miktar'
DisplayWidth = 6
FieldName = 'MIKTAR'
end
object SatBrTabTUTARI: TCurrencyField
Calculated = True
DisplayWidth = 15
FieldName = 'TUTARI'
end
object SatBrTabSATARIH: TDateTimeField
DisplayLabel = 'Sat�� Trh.'
DisplayWidth = 12
FieldName = 'SATARIH'
DisplayFormat = 'dd/mm/yy-hh:nn'
end
object SatBrTabPARAKENDE: TStringField
FieldName = 'PARAKENDE'
Visible = False
Size = 1
end
end
object SatBrSRC: TDataSource
DataSet = SatBrTab
Left = 512
Top = 216
end
object urunOku: TTable
DatabaseName = 'ECZ'
IndexFieldNames = 'ILACNO'
TableName = 'URUN.DB'
Left = 88
Top = 224
object urunOkuILACNO: TIntegerField
FieldName = 'ILACNO'
end
object urunOkuILACAD: TStringField
FieldName = 'ILACAD'
Required = True
Size = 36
end
object urunOkuMIKTAR: TIntegerField
FieldName = 'MIKTAR'
end
end
object DeleteQuery: TQuery
DatabaseName = 'ECZ'
Params.Data = {010001000853494C5341544E4F0006080000000000000000000000}
SQL.Strings = (
'DELETE FROM FATURA'
'WHERE SATISNO=:SILSATNO')
Left = 160
Top = 376
end
object QhrkUYARI: TQuery
DatabaseName = 'ECZ'
Params.Data = {01000100055541734E6F0006080000000000000000000000}
SQL.Strings = (
'SELECT '
'HAREKET.CARIKOD,'
'HAREKET.BORC'
'FROM HAREKET'
'WHERE (ALSATNO=:UAsNo) AND (ALSAT='#39'S'#39') AND'
'(NIHAI<>1)')
Left = 104
Top = 376
object QhrkUYARICARIKOD: TStringField
FieldName = 'CARIKOD'
Size = 11
end
object QhrkUYARIBORC: TCurrencyField
FieldName = 'BORC'
end
end
object QRECSIL: TQuery
DatabaseName = 'ECZ'
Params.Data = {0100010006525361744E6F0006080000000000000000000000}
SQL.Strings = (
'DELETE FROM RECETE'
'WHERE SATISNO=:RSatNo')
Left = 136
Top = 376
end
object QHastaBul: TQuery
DatabaseName = 'ECZ'
Params.Data = {01000100056873744E6F00030400000000000000}
SQL.Strings = (
'SELECT '
'HASTA.HASTADI,'
'HASTA.HASTASOYAD'
'FROM HASTA'
'WHERE HASTANO=:hstNo')
Left = 56
Top = 272
object QHastaBulHASTADI: TStringField
FieldName = 'HASTADI'
Size = 18
end
object QHastaBulHASTASOYAD: TStringField
FieldName = 'HASTASOYAD'
Size = 18
end
end
object KrmBorcSil: TTable
DatabaseName = 'ECZ'
TableName = 'KRMLAR.DB'
Left = 88
Top = 272
object KrmBorcSilKOD: TStringField
FieldName = 'KOD'
Required = True
Size = 11
end
object KrmBorcSilBORC: TCurrencyField
FieldName = 'BORC'
end
end
object hastaBulT: TTable
DatabaseName = 'ECZ'
TableName = 'HASTA.DB'
Left = 128
Top = 272
object hastaBulTHASTANO: TIntegerField
FieldName = 'HASTANO'
end
object hastaBulTBORC: TCurrencyField
FieldName = 'BORC'
end
end
object UrunHrkSTab: TTable
DatabaseName = 'ECZ'
IndexFieldNames = 'ILACNO;GCTARIH;ALSATNO;SIRANO'
MasterFields = 'ILACNO;SATARIH;SATISNO;SIRANOURUN'
MasterSource = SatBrSRC
TableName = 'URUNHRK.DB'
Left = 184
Top = 384
object UrunHrkSTabGCTARIH: TDateTimeField
DisplayWidth = 15
FieldName = 'GCTARIH'
end
object UrunHrkSTabILACNO: TIntegerField
DisplayWidth = 10
FieldName = 'ILACNO'
end
object UrunHrkSTabALSATNO: TFloatField
DisplayWidth = 10
FieldName = 'ALSATNO'
end
object UrunHrkSTabCIKMIK: TIntegerField
DisplayWidth = 10
FieldName = 'CIKMIK'
end
object UrunHrkSTabSIRANO: TIntegerField
DisplayWidth = 10
FieldName = 'SIRANO'
end
end
object QSATSIL: TQuery
DatabaseName = 'ECZ'
Params.Data = {010001000753617469734E6F0006080000000000000000000000}
SQL.Strings = (
'DELETE FROM SATIS'
'WHERE SATISNO=:SatisNo')
Left = 328
Top = 384
end
object prosesTab: TTable
DatabaseName = 'ECZ'
TableName = 'PROSES.DB'
Left = 16
Top = 336
object prosesTabTARIH: TDateTimeField
FieldName = 'TARIH'
end
object prosesTabACIKLA: TStringField
FieldName = 'ACIKLA'
Size = 36
end
object prosesTabISLETNO: TFloatField
FieldName = 'ISLETNO'
end
object prosesTabMIKTAR: TIntegerField
FieldName = 'MIKTAR'
end
object prosesTabFIYAT: TCurrencyField
FieldName = 'FIYAT'
end
object prosesTabTUTAR: TCurrencyField
FieldName = 'TUTAR'
end
object prosesTabISLETIPI: TStringField
FieldName = 'ISLETIPI'
Size = 15
end
end
object UserAbc: TTable
DatabaseName = 'ECZ'
TableName = 'usera.db'
Left = 48
Top = 337
object UserAbcKULLANICI: TStringField
FieldName = 'KULLANICI'
Size = 25
end
object UserAbcURUNKARTI: TStringField
FieldName = 'URUNKARTI'
Size = 1
end
end
end